home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 September
/
64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64
/
body building
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
991b
|
21 lines
1 data0,0,0,0,192,96,1,64,80,1,64,80,1,64,80,2,74,72,2,91,72,2,91,72,2,123,200
2 data2,10,8,2,10,8,2,17,8,2,17,8,1,32,144,1,32,144,1,32,144,1,32,144,3,251,248
3 data3,251,248,3,251,248,3,251,248
4 poke53280,0:poke53281,3:print"[147][144]c64 body building '89 by c.kammermeyer"
5 print"":fori=1to20:print"[195][178]";:next
6 print"[144] 06 05 [158]04 [144]03 02 01 00 01 02 03 [158]04 [144]05 06 port 1";tab(33)"port 2"
7 poke2040,11:poke53269,1:f=155:pa=20:pb=20:v=53248:s=54200
8 forx=0to62:read d:poke704+x,d:next:pokev+23,1:pokev+29,1
9 j1=peek(56321):j2=peek(56320):ifo=1 then goto 12
10 ifj1=a then f=f-5:pa=pa+1:pb=pb-1:goto15
11 ifj1<>255then a=j1:o=1:f=f+5:pa=pa-1:pb=pb+1:goto 15
12 ifj2=b then f=f+5:pb=pb+1:pa=pa-1:goto15
13 ifj2<>127then b=j2:o=0:f=f-5:pb=pb-1:pa=pa+1:goto 15
14 o=0:goto 9
15 pokev+39,8:poke53249,145:poke53248,f:print"";tab(10)" ";tab(37)" "
16 iff>252 then a$="player 1":goto 19
17 iff<60 then a$="player 2":goto 19
18 print"[156]player 1:";pa;tab(27)"player 2:";pb:goto 9
19 pokes+96,15:pokes+78,240:fori=1to80:pokes+76,33:pokes+73,33:next:pokes+76,0
20 pokes+73,0:print"[144]";tab(11)"winner:";a$:forx=1to6000:nextx:run